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THE APPEND WEDGE (For 8Ks only) ^ ^- Seller 

The APPEND WEDGE is an excellent program to append one BASIC 
Program to another. This special characteristic allows you to 
have a set of general purpose subroutines and 'tack them onto 
any program? One draw-back though; the line numbers must be 
in order. 

Rprause the edification of this listing is quite complete , you 
iTyTishto read through the listing first, and then commence 
to programming. 

ENTERING THE " APPEND WEDGE " 

1. First load the MACHINE LANGUAGE MONITOR Commodore Part No. 321000 

2. Use the MONITOR to enter the machine code into the second 
cassette buffer. Hex ^33A to j33FF 

3. Use the "X" command to return to BASIC . Type "NEW" (return). 

4. Enter the BASIC PROGRAM. Lines 10 thru 230 are all that are 
necessary to LOAD, RUN, and SAVE "APPEND WEDGE". 

5. Basic Lines 1000 thru 9000 are just the instructions, 

6. To SAVE the original copy type RUN 100. This will save the 
Machine Language along with the BASIC Program. 



10 SVS826:NEN 

20 REM ************************ 

30 REM * * 

40 REM * TO SAVE TVPE RUI 100 * 

50 REM * * 

60 REM ************************ 

100 P0KE241.. 1 

1 1 P0KE247 .. 53 •• P0KE24S .. 3 

1 20 E=PEEK ■■ 1 24 > ■ P0KE229 .. E 

1 30 E=PEEK •; 1 25 > ■• POKE230 .. E 

140 REM *** FIND SAVE NAME *** 

150 R$="" 

1 60 fl*=STR* < PEEK < 1 50 > +256*PEEK U 5 1 > > 

170 fl=VAL<A:^> 

180 fl$="flPPEHri WEDGE" 

1 90 E=PEEK C A > ■ P0KE238 .. E 

200 E=PEEK < A+ 1 > ■■ P0KE249 .. E 

2 1 E=PEEK < A+2 > ■ POKE250 .. E 

220 SVS63153 

230 END 



-■n 



if^m REM ***************************** 

1010 REM * * 

1020 REM * FOR INSTRUCT IONS RUN 1080 * 

1030 REM * * 

1040 REM ***************************** 

1050 PR I HTM"; ^ „ 

1100 PRINT" a flPPEHD WEDGE COMMHHH 

1110 PR I NT: PR I NT -PR I NT 

llvH PRINT" THIS PROGRAM hUDS fiN EXTRA CUMMhWD 

in0 PPINT"Tn PET BASIC. THE EXTRA COMMAND IS 

1140 PRINT" IS CALLED :*iPPEHDl. aiPPEHD" ALLOWS THE 

ll'=i0 PRINT"! ISEP TO JOIN SEPERATE BASIC PROGRAMS. 

11 ^■;0 PPINT":J=lPPENDS COULD BE USED TO LINK TESTED 

1170 PR I NT "SUBROUTINES TO A NEW MAIN PROGRAM. 

llSfi PRINT" THE :*iPPEHD" COMMAND IS ADDED TO 

1190 PR I NT "BASIC EV PLACING A WEDGE IN THE ZERO- 

12R0 PR I NT "PAGE CODE USED TO SCAN ALL LINES. 

1210 PR I NT "THE WEDGE IS FORCED BV LINE 18 AND THE 

1220 PR I NT "PROGRAM AREA IS CLEARED BV A NEW. 

12:-;0 PRINT" THE MACHINE CODE FOR :*HPPEND5 SITS 

i:'40 PRINT" IN THE SECOND CASSETTE BUFFER. THIS 

l-"!=i0 PR I NT "BUFFER IS FROM 033A HEK TO 0406 HEX OR 

i-'fM PR I NT "Tl 1ST BEFORE THE BASIC SOURCE. TO SAVE 

1270 PRINT" :«PPENDS THE SECOND CASSETTE BUFFER 

1280 PR I NT "MUST BE SAVED WITH THE BASIC SOURCE. 

1 :";fi0 nnsi IE4000 

1x2^1 PRiNT"nPftW THE BASIC LINES 180 TO 230 PERFORM 

l:-::-;0 PR I NT "THE TOTAL SAVE. LINE 168 SETS THE 

l';40 PR I NT "FIRST ADDRESS FOR CASSETTE #1. LINE 

l^.-^^O PRINT" 110 SETS THE LO AND HI EVTES FOR THE 

13f--:0 PRINT" START ADDRESS OF THE SAVE TO 033A HEX. 

1370 PRINT" LINES 120 AND 130 SET THE END ADDRESS 

13S0 PR I NT "FOR THE SAVE TO VARTAB. VARTAB POINTS 

1390 PR I NT "TO THE END OF BASIC SOURCE. 

1400 PRINT" A SPECIAL TRICK IS USED TO MAKE THE 

1410 PR I NT "NAME FOR THE SAVE. LINES 140 THRU 178 

1420 PR I NT "LOCATE THE LENGTH AND ADDERSS POINTER 

1430 PR I NT "USED BV BASIC FOR STRING A:f. 

144fi PR I NT" LINE ISO MAKES A* EQUAL TO THE NAME FOR 



1450 
1460 
1470 
1480 
1490 

1500 
1600 

1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 

1700 
1900 
2000 
2010 

2020 
2030 
2040 
2050 
2W60 
2070 
2080 
2090 

2100 

2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2900 

5000 
9000 
9010 

9020 

9030 

REflDV, 



PR I NT "THE SAVE. LINE 190 SETS THE LENGTH OF 

PRINT"fi$ FOR THE SAVE. LINES 260 flND 210 SET 

PR I NT "THE flDIiRESS OF fit FOR THE SAVE NAME. 

PRINT "FINhLLV LINE 220 CALLS THE OPERATING 

PR I NT "SYSTEM ROUTINE TO HO THE SAVE. 

GOSUE9000 

PRINT":i«!H!l!!J TO ACTIVATE THE aiPPENDB COMMAND 

PRINT"TVPE aRUNl. 

PR I NT "W TO SAVE THE :-FlPPENril COMMAND AND 

PRINT" INSTRUCTIONS TVPE S^^UN 100". 

PRiNT":«Bi!ga warning " 

PR I NT "W THE aiPPENDl COMMAND DOES NOT FIX 
PRINT" LINE NUMBERS! APPENDING PROGRAMS WITH 
PR INT" LINE NUMBERS OUT OF ORDER WILL HAVE 
PR I NT "STRANGE RESULTS WHEN RUN. 



PRINT" 



USE PET RENUMBER TO FIX SEGMENTS 



NAME OF PROGRAM ON TAPE 
#1 VOU WISH TO APPEND 
TO THE PRESENT PROGRAM 
IN PET MEMORV 

IF OMITTED THE NEXT 
PROGRAM ON TAPE #1 WILL 
BE APPENDED 



PR INT" BEFORE APPEND I NO . 

GOSUB9000 

PRINT".1SVNTflX FOR aflPPENDH COMMAND 

PRINT 

PR INT" >APPEND " CHR* < 34 ) " PROGRAM NAME " CHR* < 34 > 

PRINT" t t t 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" I 

PRINT" 

PRINT" 

PRINT" ' ' 

GOSUB9000 

GOTO 1000 

PR I NT " ia««?M«iMSft!l«««««««««?I««8»fl" ; 

PRINT" a HIT ANV KEV TO CONTINUE ■"; 

GETA* ■■ IFF\$=" "THEN9020 

RETURN 



H COMMAND NAME - A FOR SHORT I 



H PROMPT CHARACTER MUST BE 
I IN FIRST COLUMN OF LINE 



APPEND 120. 



PAGE 0001 



LINE # LOG 



0002 


0000 


0003 


0000 


0004 


C>000 


0005 


0000 


0006 


0000 


0007 


0000 


0008 


0000 


0009 


0000 


00 1 


0000 


OO 1 1 


0000 



CODE 



LINE 



;* APPEND BASIC PROGRAMS 

;+ FOR LEVEL 1 BASIC 
■ + 



3-29-79 



;*H<:+: + =4!* + :+:******** + + * + *********** 



0013 0000 

0014 0000 

0015 0000 

0016 0000 



; BASIC V ARABLES 
TXTPTR=*C9 
BUF=*0A 
VARTAB=*7C 



00 IS 0000 

0019 0000 

0020 (JCjOO 

0021 0000 



; BASIC ROUTINES 
CHRGET=*00C2 
CHRG0T=*00C8 
FINI=*C430 



.;INC TXTPTR AND GETS CHAR 
UGETS LAST CHAR 
; FIXES LINKS 



0023 
0024 
0025 
0026 
(J 02 7 
■JO'IS 
0029 
0030 
0031 
0032 
0033 
0034 
0035 



<I)000 
0000 
0000 
0000 

(jOOO 

(^mjOO 
0000 
0000 
(1)000 
0000 
0000 
0000 



;CiP SYSTEM VARABLE:; 

TEMP1=*50 

EAL=*E5 

EAH=*E6 

FNLEN=*EE 

FA=*F1 

STAL=*F7 

STAH=*F8 

FNADR=$F9 

VERCK=*020B 

SATUS=*020C 

TAPE1=*027A " 

TAPE2=*033A 



;END ADR FOR SAVE 
; LENGTH OF FILE NAME 
; START ADR FOR SAVE 
; ADDRESS OF FILE NAME 



0037 


0000 


0038 


0000 


0039 


0000 


0040 


0000 


0041 


0000 


0042 


0000 


0043 


0000 


0044 


0000 


0045 


0000 


0046 


0000 


0047 


0000 


0043 


0000 



;0P SYSTEM ROUTINE:; 

FAH=*F5AE 

LDAD2=*F64D 

SAVE=*F6B1 

PRT=*FFD2 

LD410=*F42B 

TRD=*F8SA 

TWAIT=*F913 

LERR=*F3DB 

LD210=*F3E5 

ZZZ=*F667 

CSTE1=*FS3D 



IREAD ANY TAPE HEADER 
JCOPY PTRS FROM HEADER 
;0P SYSTEM TAPE SAVE 
; PR I NT CHAR IN A 
;PRINT 'ING' MSG 
;READ DATA FROM TAPE 
;WAIT FOR KEYBRD IRQ 
;PRT ERROR MSG 
;PRT READY, FIX VARTAB 
;SETS TBUF PTR 
; ISSUE TAPE MSG 



APPEND 120 PAGE OOOi 



LINE # LOC 



0049 
(1)050 
0051 



0000 
0000 
0000 



CODE L I NE 

LD300=*F3FF 

FAF=$F495 

0P160=*F579 



; PR I NTS FILE NAME 
JSEARCHS FOR FILE BY NAME 
;PRT 'FILE NOT FOUND ERROR' 



0053 


OOOO 






0054 


033A 






0055 


033A 






0056 


033A 


A 9 


4C 


0057 


033C 


85 


CB 


0058 


033E 


A9 


47 


0059 


0340 


85 


CC 


0060 


0342 


A9 


03 


0061 


0344 


35 


CD 


0062 


0346 


60 





■+=TAPE2 
;SET WEDGE CMD IN Z-PAGE CODE 



SETW LDA #$4C 

STA CHRGOT+3 
LDA #< WEDGE 
STA CHRGOT+4 
LDA #>WEDGE 
STA CHRGOT+5 

STRTS RTS 



;JMP INSTRUCTION 
;SET LO 
;SET HI 



0064 


0347 






0065 


0347 






0066 


0347 


C9 


3E 


0067 


0349 


DO 


08 


0068 


034B 


48 




0069 


034C 


A 5 


C9 


0070 


034E 


C9 


OA 


0071 


0350 


FO 


08 



.: APPEND WEDGE CMD 



WEDGE 



CMP #' > 

BNE WG200 

PHA 

LDA TXTPTR 

CMP #<BUF 

BEQ WCMD 



;A WEDGE CMD? 

;N0 

; MAYBE 

;WAS ' >' IN COLUMN 1 

; YES-WEDGE CMD 



0073 0352 68 

0074 0353 C9 3A 

0075 0355 BO EF 

0076 0357 4C CF 00 



WGIOO PL A 

WG200 CMP #' : 

BCS STRTS 
JMP CHRGOT+7 



; FINISH CHRGOT 



0078 035A 20 C2 

0079 035D C9 41 

0080 035F DO Fl 



00 WCMD JSR CHRGET 
CMP #'A 
BNE WGIOO 



;AN APPEND CMD? 

;no 



0082 


0361 


A2 


01 


0083 


0363 


86 


Fl 


0084 


0365 


CA 




0085 


0366 


86 


EE 


0086 


0368 


86 


FA 


0087 


036A 


8E 


OB 02 



LDX #1 

STX FA 

DEX 

STX FNLEN 

STX FNADR+1 

STX VERCK 



; YES-SET FOR CASSETTE #1 

; X=*00 

;ZERO LENGTH OF FILE Um 
; POINT INTO Z-PAGE ^ 
;SET FOR A LOAD 



APPEND 120 PAGE 0003 



LINE # LOC 



CODE 



0089 


036D 


20 


C2 00 


0090 


0370 


AA 




0091 


0371 


FO 


17 


0092 


0373 


C9 


22 


0093 


0375 


DO 


F6 


0094 


0377 


A6 


C9 


0095 


0379 


E8 




0096 


037A 


86 


F9 



LINE 



WCIOO 



JSR CHRGET 

TAX 

BEQ WC210 

CMP #*22 

BNE WCIOO 

LDX TXTPTR 

INX 

STX FN ADR 



JGET NEXT CHAR 

;IS THIS THE END 

; YES-LOAD ANYTHING 

?A (")? 

; NO-LOOP 

; START FILE NAME ONE+ 



0098 


037C 


20 


C2 00 


0099 


037F 


AA 




0100 


0380 


FO 


OS 


0101 


0332 


C9 


22 


0102 


0384 


FO 


04 


1 03 


03S6 


E6 


EE 


0104 


03SS 


DO 


F2 



WC200 



JSR CHRGET 

TAX 

BEQ WC210 

CMP #*22 

BEQ WC210 

INC FNLEN 

BNE WC200 



;FIND END OF THE NAME 

;THIS THE END? 

?YES 

:AN END DOUBLE QUOTE? 

;YES 

; NO-KEEP CHARACTER 

; BRANCH ALWAYS 



0106 


03SA 


20 


67 


F6 


WC210 


JSR 


111 


;SET TBUF PTRS 


0107 


038D 


20 


3B 


F8 




JSR 


CSTEl 


; ISSUE TAPE MSG 


1 OS 


0390 


20 


FF 


F3 




JSR 


LD300 


;PRT FILE NAME 


0109 


0393 


A5 


EE 






LDA 


FNLEN 


; LOADING ANY FILE 


0110 


0395 


FO 


08 






BEQ 


WC250 


;yes 


0111 


0397 


20 


95 


F4 




JSR 


FAF 


; NO-SEARCH FOR IT 


0112 


039A 


DO 


08 






BNE 


WC270 


;SKIP IF FOUND 


0113 


039C 


4C 


79 


F5 


WC220 


JMP 


OP 160 


;FILE NOT FOUND MSG 


0114 


039F 


20 


AE 


F5 


WC250 


JSR 


FAH 


?READ ANY FILE 


0115 


03A2 


FO 


FS 






BEQ 


WC220 


; ERROR IF NOT FOUND 



0117 


03A4 








0118 


03A4 








0119 


03A4 


AD 


7D 


02 


0120 


03A7 


33 






0121 


03A8 


ED 


7B 


02 


0122 


03AB 


AA 






0123 


03AC 


AD 


7E 


02 


0124 


03AF 


ED 


7C 


02 


0125 


03B2 


A8 






0126 


03B3 


A5 


7C 




0127 


03B5 


38 






0128 


03B6 


E9 


04 




0129 


03B8 


3D 


7B 


02 


0130 


03BB 


A5 


7D 




0131 


03BD 


E9 


00 




0132 


03BF 


8D 


7C 


02 


0133 


03C2 


8A 






0134 


03C3 


18 






0135 


03C4 


6D 


7B 


02 


0136 


03C7 


SD 


7D 


02 


0137 


03CA 


93 







;CALC NEW ADDRESS FOR APPEND SOURCE 



WC270 



LDA 


TAPE 1+3 


SEC 




SBC 


TAPEl+1 


TAX 




LDA 


TAPE 1+4 


SBC 


TAPE 1+2 


TAY 




LDA 


VARTAB 


SEC 




SBC 


#4 


STA 


TAPEl+1 


LDA 


VARTAB+1 


SBC 


#0 


STA 


TAPE 1+2 


TXA 




CLC 




ADC 


TAPEl+1 


STA 


TAPE 1+3 


TYA 





;GET LO END ADR 
;CALC DELTA 
;SUB BEGIN LO 
JSAVE IN X 
;6ET END ADR HI 
;SUB BEGIN ADR HI 
;SAVE IN Y 
;CALC APPEND BEGIN 



;SET LOAD NEW START 



;NEW START HI 
;GET DELTA LO 
JCALC new LOAD END ADR 



;GET DELTA HI 



AP 



PEND 120 PAGE 0004 



LINE *» LOC 



0138 
0139 



03CB 
03CE 



CODE 

6D 7C 02 
3D 7E 02 



LINE 



ADC TAPE 1+2 
ST A TAPE 1+4 



0141 


03D1 


20 


4D 


F6 


0142 


03D4 


A 2 


00 




0143 


0306 


8E 


OB 


02 


0144 


03D9 


BD 


FS 


03 


0145 


03DC 


FO 


06 




0146 


03DE 


20 


D2 


FF 


0147 


03E1 


E8 






0148 


03E2 


DO 


F5 





WC300 



JSR LDAD2 
LDX #0 
STX VERCK 
LDA MSGl.X 
BEQ WC400 
JSR PRT 
INX 
BNE WC300 



:COPY POINTERS FOR LOAD 
;PRT 'APPENDING' HS6 
; CLEAR FOR A LOAD 
;DONE WITH MSG 
; YES 



BRANCH ALWAYS 



0150 


03E4 


20 


2E 


F4 


0151 


03E7 


20 


SA 


F8 


0152 


03EA 


20 


13 


F9 


0153 


03ED 


AD 


OC 


02 


0154 


03F0 


FO 


03 




0155 


03F2 


4C 


DB 


F3 



WC400 



JSR 


LD410+3 


JSR 


TRD 


JSR 


TWAIT 


LDA 


SATUS 


BEQ 


WCSOO 


JMP 


LERR 



: PR I NT ' IN6' MSG 

:READ DATA FROM TAPE 

;WAIT FOR KEY IRQ RESTORE 

; GOOD LOAD? 

;YES 

; NO-LOAD ERROR 



0157 
0158 


03F5 
03FS 


4C E5 
OD 


F3 


WC500 
MSGl 


JMP LD210 'GO FIX 
.BYTE *D,' APPEND ',0 


0158 


03F9 


41 50 








0158 


03FF 


00 








0159 


0400 






AAAA 




0160 


0400 








. END 



BASIC LINKS 



ERRORS = 0000 



SYMBOL TABLE 
SYMBOL VALUE 



AAAA 
CSTEl 
FAF 
FNLEN 
LDAD2 
PRT 
STAN 
TAPE2 
TXTPTR 
WC200 
WC270 
WCMD 
ZZZ 
END OF 



0400 
F83B 
F495 
OGEE 
F64D 
FFD2 
OOFS 
033A 
00C9 
037C 
03A4 
035A 
F667 
ASSEMBLY 



BUF 

EAH 

FAH 

LD210 

LERR 

SATUS 

STAL 

TEMPI 

VARTAB 

WC210 

WC300 

WEDGE 



OOOA 
00E6 
F5AE 
F3E5 
F3DB 
020C 
00F7 
0050 
007C 
038A 
03D9 
0347 



CHRGET 

EAL 

FINI 

LD300 

MSGl 

SAVE 

STRTS 

TRD 

VERCK 

WC220 

WC400 

WGIOO 



00C2 
00E5 
C430 
F3FF 
03F8 
F6B1 
0346 
F8SA 
020B 
039C 
03E4 
0352 



CHRGOT 

FA 

FN ADR 

LD410 

OP 160 

SETW 

TAPEl 

TWAIT 

WCIOO 

WC250 

WC500 

WG200 



00C8 

OOFl 

00F9 

F42B 

F579 

033A 

027A 

F913 

03 6D 

03 9F 

03F5 

0353 



PET V ar ■ i ak' 1 e St o r a-s e 

f,^-,^^ P£j .j-^r- ha'..'e.. at one time or another.. checked 
FRE.O:'"irf,fn^cUa.tely atter a LORD and ai^ain atter RUNr.in^ sr.d 
+r,Mn.-Vth^ t..MC dorvt match. The ditterence car, be rn i n i rr.a I or 
-nm-txrn^-^ -Huite dra-ttic. . . but ..uhy ? The reason < as you hax.-e 
probably already -nuessed > is Mar- i ab le storage. 

In PET BASIC there are -generally three typ-es ot 
-=.riahle=-.^ striniH.. tloatin-n point and inte-i^er •; f'ff-^ 
.■.^ri"=.bl^s Bi-e handled differently th.ar. these and ..ui U be 
discussed later > . When PET executes statements such -as- 

(=( = 4.9 '::direot> 

10 LET V = 17.5 

20 K% = 1 

30 E* = "KKKy." 

It s+ores these Mar- i.ai:j les and their assi*<nments in 
'.'.W-iable storage space; RFfM memory space determined by 
pi-anters in PET'S operatinij system luhich are set up on power 
UP or 'after a. LORD., bs- the case may be. They are stored in 
the order in which they are encountered. 

^g...^..-.- -take a look at hoLU each of these v-ai- i at:, les 3r-e 
h.=.ndled by PET. First you- 11 need the machine lannuaae 
m.-'nitor. 3k users will have to LOhD the monitor and follow 
these 6 preliminary steps- 

1. LIST. 10 S't'S<1039> should ar^pear. If not.. record the 



:. RUN the monitor 

-;. Type exactly "M 007fl..009? and hit RETURN. The following 
shou Id .ar-pe.ar- ■' 

12 3 4 5 6 7 
007fl 01 04 6B 07 6B 07 6B 07 
0082 00 20 0C 21 00 20 0fl 00 
008l=i 9B 0E 00 04 04 08 06 04 
0092 CC 0C 8C EFi 24 C6 88 80 



4, How take the cursor up and charise the follow inn bytes- 
hit RETURN" .after each line > •■ 

1 2 3 4 5 6 7 
. : ei07fl 01 08 03 08 0-3 08 03 08 

. ■ 00«"'i=^' .. ■■ .. ■■ •* "■ "• *■ 

. • 008H 

0092 04 08 . . . . 



5, Type - M 0800.. 0807-' 



and RETURN. The -i^o 1 low inn shou Id 



^1 



1 2 3 4 5 6 7' 
Q800 24 24 24 24 24 24 24 24 



6. Charli^e "to 



1 2 3 4 5 6 7 
0800 00 00 00 24 £4 24 24 24 



PET h3=: now been -Pooled in+o thinkiri-s that BASIC meniory 
SP-ace now starts at 6800 instead of 0400. This KToteots the 
machine laniiuane nionitor trorn be inn clobbered Luhen extra 
EFlSIC is entered. 

NOTE: ot course all this is unnecessary tor 16.-'32k 
users as the M.L.M. is in ROM ar.d carr't be tra/nP led on by 
anything. How.- homeuer .. any turther insructions will re':tuire 
one set ot addresses tor 8k-s and another tor 16/32k 's as the 
results ot this exercise will end up in ditterent ■Br-e3:B- ot 
memory tor the two machines. Therefore., the 16.-'32k user will 
use the addresses or para/rieters r laced in brackets. 

Exit the monitor and enter and RUN the tolloi.Min-3 EFiSIC- 

20 fl =2,5 < 

30 E'i = S -CNo spaces 

40 C* = "XXK" < 

Fitter RUHnina.. re-enter the monitor with S't'S1039 < S't'S4 
tor 16/32k >. Then do the to 1 loMjins memory display' 

.: M 0800 .'0840 ■■.■0400.. 0440 > 

1 2 3 4 5 6 7 
. : 0800 00 0B 08 1 4 00 4 1 B2 32 
. : 0808 2E 35 00 14 03 IE 00 42 

0810 25 E2 33 00 21 08 28 00 
. ■ 0818 43 24 E2 22 58 58 58 22 
. ■■ 0820 00 00 00 41 00 82 20 00 
. ■ 0S28 00 00 C2 80 00 03 00 00 

0830 00 43 80 03 IC 08 00 00 
. : 0833 24 24 24 24 24. ...... 

F i *tur e 1 . 

16k users luill ot course see "04-s" rather than "08-s" 
and the "24-s" at the bottom will be "fifl's" indicatins "empty 



Notice the tirst 4 rows is our BASIC pronrajii to I loiued by 
three "OO-'s" indica.tini.i 'end ot EfiSIC-'. Following this is 

the Mariab le table which we'll *iet into riaht now. 

Floating Point Variables 

Float in*" point implies a numeric Ma lue luith a. tract ional 
component. In our case it u'i 1 1 be H = 2.5 . This Ma lue is 
stored a. lon*i udth its correspond in-3 Mar- i able in the 7 memory 
locat i ons to I low i n*i 0323 < 0423 > i no lus i Me ' 



0823 41 00 82 20 00 00 00 

Variat.ions o+ the BhoK-'e 7 locations is all that is 
re-Huired to store any -float in-a P-oint number within the uf:-per 
arid' lower limits ot PETs -floating point rari*.e. 

The tirst tiuo bytes s>r-B used to store the "...'aj-i-aki le. 41 
IS "Ft" in hexadecimal. The next byte is set aside tor double 
nharacter variables < e.3. flfi=2.5 >. Since ours is only a 
single character., location 0824 will be 00 as shown. 

The remaining 5 bytes Bre tor the actual '...'alue itselt. 
The 82 is the exP'onent ot the Malue. This is ottset by 80 < 
halt ot FF > such that ne^iatiMe exf^-onents c-Bri also be 
,_jj..,^._, jf.|g,^.j_ If-, ciur case 2 is added to indicate that the 
decimal point is 2 Places to the ri iiht ot the most 
si^tnitii-iarit bit. fts you know.- binary 2 = ....0*4 + 1*2 + 
0*1. . . . ■■ 



1 . X X X X X X 

That covers the i ntener part . . . nou" the tract i ona I part . 

We have 2 so ■i'sr. We ne'e'Ci to represent .5 more. Theretore 

.=< "1" is re'Huired in the 2 column. This is contained in the 

next byte tollowini-i the exponent. 0826 contains 20 which., in 

binary., is • 

1 

This is "OR"d" into the -atriove such that the lettmost bit is 
beneath the most sisni ti*<arrt bit ot the integer part of the 
number 



0000 1 0.x XX XXX 

OR'd with 1 



= 1 0.1 

...which is 1*2 + l*.5 = 2.5 ! 

Lastly IS the si an ot the value. It you study the theory 
ot this method ot derivinsi numbers., you'll notice that the 
lettmost bit ot the "OR'd with" number ns>...isr has to be a 1 
tor determinins the ma-Efnitude ot the number. Theretore it is 
used as the si^n bit arid is set to 1 tor ne-sative numbers. 
E.xajiiP les ot this arid more float in*< point numbers at the end 
o f this ar- 1 i c I e . 



J> 



I n "fc e £1 e r V ar- i Bi'j I e s 

Inte^iers are "those udth no -f ra.o+ i ona I oomP'Onen-t and str-B 
s+ored by PET in a. much sirrit:'ler ■fa3hion. In our oa:=:e.- B'i is 
s"tored in -the 7 bytes inimedia.+e ly f ol louiins fl . Eu-t houi does 
PET knoiM ■that this Mar- i ab le is any di++'erent: -frorfi the last. 
Not: ice the -first tiuo byt:es ot EK as oorMi-i'ared to Fi 

0S23 4 1 00 

0S2fl C2 Sei 00 09 00 00 00 

Since fl is rep-resen+ed as 41 in hex., you misht e-xc:'eot: that B 

is 42. Well you're ri-sht.; E is 42 in hex but when E ■:' or any 

ot:her lett:er > is emf:- loyed bs- sri inteser ••.■'aniah le.. bit B is 

set to 1 such that PET can make the dist:inct:ion. Lookinii at 

the table on t^he last K-a-iie ot the last Transactor., you'll see 

that: t:he letters stop at: decimal S'O and there+'ore niE-'-.-'Br- use 
the Sth bit. Expand ini<. . . 

"H" = 41 = £1 1 9 1 
"B" = 42 = 1 1 

"B'i" = C2=1100 0010 



Bit 8 o-t the second byte o-f sn integer variable is also 
set- even i-f a. double variable n-ame is not used. 

The next tato bytes ot the s^'jen are the on ly ones used 
to represent- the '-.-'a. lue. The remain insf three Br& never used. 
In tellers t-3l<e no less sp-ace th-sn -float ins point except in 
arr -ays. This simpli-fies the se-srch process. 

The -first byte used in represent i nit the v-alue.- 082C < 
042C > .. is the hi ah order byte and the second 0S2D < 042D >.. 
is the loi-M order. The two -sre o-f course the hex 
representation ot' the v-alue in decimal. Recall th-at the 
maximium inte=ter value possible is 32767 or S0C10 he.x. The 
remain in*! possibi lities -=>re used -for nesa-tive intesers. Some 
ex:aj'fiP les : 

E.'i = 9 = 00 05 
B."-; = 256 = 01 00 
B,--; = 2-57 = 01 01 

BK = = 00 00 

E'i = -1 = FF FF 
E-: = -256 = FE 00 
E"; = -32767 = 80 01 

:Btr i nsi Van i at:< les 



For every strins v-ariab-le created-, ariother 7 bytes s>re 
used UP by PET but o-f course the strina itself is not stored 
there. Ciur strina v-=u--i-=ib le.. C*.. is stored besinnin-a -at 0831 
< 0431 > . PET distin=iuishes strin-ii v-^ri-^bles by settin-ii bit 
8 over the second byte only. "C" is 43 in hex: 

0831 43 80 03 IC 08 00 00 



i --.=.+ ir,n fHR^:-! '■ ^^433 > holds the length o^ the string < 
o - 1 1 40 r* = --XK" ■:•. The -foUoiMin-s tu.o toytf:=. -r-t e the 

InotherM-ords.. ..uhy ^.t...r.=- the -tM«- _ _---•_, _ .^_^_ _^ ...-.inter 



...,_+. i^.'+hi +J;t"a;e;. " 'm^tead sirn.^ly store a ..ointer 
^■:•'-"=■^"■ 'V.- + - =,t +h^ tir=::t r:har-aoter ot the strin^i ar.d oall up 
x'nSl:r^o:%:ha.-terr toUo.in. .here X equals the Men.th^ 
byte < 03 in our cai:e .' . 

Thi- ^.rooedure is tine for strint-s ^hioh are defined in 
text/ bit .uhat about those th.at are not. TaKe tor ..c.... W 
the tol loM.iin=-i • 

100 INPUT •' VOUR HhME "-fl* 
200 n* = RIGHT* < Fit •• 1 > 
300 C$- = D* + "*" + fl* 

In r-^-^.^-^. like these.. PET stores the strin=is at the end of 
;..=.ri^;."le ram movini. doM..n and oreates a ^.o inter m th^ 
'...'.sriak'le table to the be-sinnins ot the string. 

The Search Process 

E=.rh tirn^ a Mariable is defined.. 7 bytes of memory .are 
used u.:.': When a Mar i ato le is called by EFlSIC in lines such 

400 IF fi = 1 THEN Fi = fl + 5 
500 PRINT B".' .. C* 
600 ON fi GOTO 1020 .. 1030 . 
700 K - K ~ 3 

pa J crt=.rts At the be=iinnin=-i of the Mar i able table., 
^^^ermm^d'by-the .-o inter at 007C ^ 0071. < 002fl. 002B > .. and 
^-:.:-.=..,-,ines the first Pair of bytes. If an e>=:act m-atch i-=. r.ut 
m=-.dr-.. PET Jumps 7 locations to the next Mari-able. The search 
continues until the M.ariable is^f ound^.and if not found is 
•assumed to be zero or null for -.trin-=ii:-. 



unce e 



3-h.=.blished.. PET loads the Malue or strins into a 
„„-.f-.l.- ir/^. -and performs the desired oPer.ation. In a situ-ation 
-Mrh =.s lin.=' 700.. PET must find >< < zero or ether w i ^e .:■ .. lead 
T+'intr. ±h^ .accumulator.. find -K .a-sain.. subtr-act 3 and 
f-.^.-=,^icir, ;:•:;. Of course all this t-akes time ar.d if K resides 
rir,u>n =.t th^ end of the t.at:.le.. PET must scan throu-sh all the 
..=.ri=.bl^s .ahead of X before it finds X. There+'ore.. if a 
^•It-i-^i-'l^ is knoM-m to be used more often th-ar. ethers... time can 
be saMed by "sett ins up" the M-ariable table at the be-=nnnin-=;' 
of the pro-arajif ■ 

10 K = ^ fl* = '■ " ^ B"; = : V = 

This oBr, speed thin-=.is up consider.ab ly especi-ally if X is 
called upon e-ach Pa-:s of a lon-3 FOR-NEXT Ioop. 

What Vou Can Do 

R— Nmin=i .-4r.M still haMe the monitor running Luith the 
disPla.y a-: in Fi-iure 1.. chan=ie the fo I Icuina < do not exit 
the monitor > ■ 



J? 



M 0SG10.. 834£1 

1 
£1300 . ■ • . . 



<. 04G10 .• 0440 > 
3 4 5 €■ 



0y0y . . . 

0310 . . . 

03 13 . . • 

0320 . . . 

0323 . . . 

0330 . . . 

0333 . . . 



, 22 59 59 59 22 

. , , . . 0F . . . . 
. 05 iC 07 . . . . 



Nout -t\=<P-e ".H"" and RETURN to exit the monitor and execute 
the tolloM.iin=i line directly on the screen- 

? ft . E^i .. C* 

fl is noM.i 5 because the exp-onent of H mss, incremented by 
1. This means that eMerythin=-i ma^ shitted left one Position 
P'Utt i n=i the most sismi ti*"arit bit •:: MSB > in the 2 column arid 
Lea^t sinnitisant bit ■:: LSE > in the 2 column. 1*4 + 1*1 = 



B.'i e-^tua. Is 15 now since the low order byte ot Er-i w-as 
chari-yed to 0F . 

It you've ever tried K-ro-yra/rtmin*! this.' you know it's 
i mp-oss i b le • 

40 c* = ""VVV"" 

PET inter p-rets this &s null strin=i to I lowed by the variable 
■yyy- f o I loM.ied by null strin-ii. But now C* prints out a«: 
.iiyyyi'-- because the address ot the strin-s i.Ma=: c harried bs- well 
BS- the length. 

F loat i ns Po i nt Exa/ni-:' les 



The ma.-=initude ot a. t'loatiny point •■.•■a lue is always stored 
ifi 5 bytes. The other tujo Bi-& reserved tor the Mar- i aJ:;i le najiie 
arid will be ignored here so that lue can concentrate on the 
tor mat ot the '..la. lue. 

Floating point is harid led by PET in this format < ■fl'" = 
Maritissa. > • 

EKP Ml M2 M3 M4 SIGN 

The si=in is contained in Ml but is "extracted" on its 
way into the accumulator and Placed in a. 'si an re=iister"' . 



Z^ I. EXP Mi N2 ri3 ri4 
S5 2.2 4Q 60 W© 

-■.in.":^- th^=^ EKP is S5.. the decimal >:'Ciirit mill be 5 
r:;ositionr-i::o +he ri-3h-t o+ the MSB < Most Si-<ni-Pi-jant Bit >: 

^,,p ^ [ 9 9 9. Q. . 9. 9 

So +3r- the rnaynitude is 16. 

Ml = 22 = £i 1 1 

f.12 = 40 = 1 

ri3 = M4 = 

To ooriip lete thie oK'erat ion.. Ml arid M2 are concatenated... 

Ml + M2 = 1 1 1 ^ ® ^ ® ^3 

...and OR'd with the EXP such that the lettmost bit ot Ml + 
M2 is under the MSB ot the Malue- 

g....p I^OOO, O Q 



M ■ f-, Ml + M-- = '^9199. ^l.Q9L9999Q9- 

I O \ o O [ o o \ o 

E'Hua is- _______—.— — — — - — — — — — — 



This is still the binary representation. The decimal value 
1 s rioi.M • 

,, - , o -I -2 -3 -^■ 

1*2^^ + 0*2 + 1*2" + 0*2 + 0*2 + 0*2 +1*2 + 0*2 + 0*2 

+ 1*2''^+ 0*2'^ +. . . 
. . whioh e'^tua Is. . . 

1*16 + 1*4 + 1*.25 + 1*. 03125 = 20.28125 

EKP Ml M2 M3 M4 



Tier 



■etore 20.28125 = 35 22 40 00 00 



E-Hi 2. EKP Ml M2 M3 M4 
SH FF E? 30 00 

Since the EKP is &f\.' the decimal t:'Oint will be 10 
f-'OSitions to the risht ot the MSB. 

g:..:,p ^ iPOOpppOOO. O O 

Notice that hit 3 o+ Mantissa. 1 is set. Theretore.. the si*in 
ot the '..'a. lue y.iill be ne^-i-atiMe. Hoiu Ml.. M2.. M3 -arid M4 must be 

o o n c at e rr a.t e d ■ 

Ml = FF = 1111 nil 
M2 = E7 = 1110 0111 

M3 = 80 = 1000 0000 

M4 = 60 



M ■;: 1 +2+3 > = 1111 1 1 1 1 1110 0111 1 000 0000 

. . . arid OR-'d luith "the EKP. . . 

EXP = \.^^9.^9iQoqq^ Q q 

Ectuais = ^ ^ LlLimi IL . 129illJ0 

. . which e-Huals. . . ■ 

q «7 i, S 4 ■:> Z I O -I ''^ -S 

2 +2 +2 +2 + k' +2 +2 +2 +2 +2 +2 +2 + -■' 

+ 2"^+ 2-^ 

I n dec i t(ib. I • 

512 + 256 + 1 2S + 64 + 32 + 16+8+4+2+ 1 + . 5 + . 0625 + 
.03125 + .015625 + .0078125 = 1023.6171875 

HoiueMer.. the sign is ne-siative. .. -there-fore • 

EKP Ml M2 M3 M4 
-1023.6171375 = Sfl FF E7 80 00 



Ef 3. EKP Ml M2 M3 M4 

7E E0 00 00 00 

The EKP is less than 80 iridioa-tina the result lui U be 
less that-i 1. Now the decimal P-oint luill be 2 K-osi tiers to 
the let t ot the MSB because 7E is 2 less thari 80 ■' 

EKP = 2 £ . ^ L 9 £ 

M 1 = E0 = 111 0000 

M2 = 00 

M3 = 00 

r'14 = 00 

EKP = _ _ . Q 1 O 

OR : M = _ _ . _ 1 1 JL O o «> O g 

E-:tuals __. 91110° 

In decimal = -■:; .25 + . 125 + .0625 > 
= -.4375 



Hothirsi to it., risht? Try these- 

Es< 4. EKP Ml M2 M3 M4 

84 48 00 00 00 = . 

E^i 5. EKP Ml M2 M3 M4 

7F C0 00 00 00 = . 

E=i 6. EKP Ml M2 M3 M4 

00 00 = 2 9.5 

Array K'Bf i ab les next month ! ' -" ^ 



^^ 



T^F n^^R HANDSHAKE ROUTINE IN_MACHINEJ,ANGUAGE 

To use the IEEE-488 bus on the PET at maximum speed it is necessary 
to use machine language rather than BASIC 'INPUT' and 'PRINT'. The 
routine given here has been used with an HP3437A systems voltmeter to 
reach data transfer speeds of over 5000 bytes per second, corresponding 
to 2500 voltage readings in 2-byte packed binary format or 625 readings 
in 8-byte ASCII format. The best speed attained in BASIC is 75 readings 
per second transferred as character strings. 

The IEEE bus 



Details of the IEEE-488 bus are given in the PET Users Handbook, but some 
clarification of the register addresses on page 120 of the handbook is 
helpful. These are: 



HEX 

E820 

E822 

E821 

E823 

E840 



DECIMAL 

59424 

59426 

59425 

59427 

59456 



BITS IEEE DIRECTION 

0-7 DIO 1-8 from bus 

0-7 DIO 1-8 to bus; 'PET 'controlled 

3 NDAC 'PET' controlled 

3 DAV 'PET' controlled 

NDAC from bus 

1 NRFD 'PET' controlled 

2 ATN 'PET' controlled 

6 NRFD from bus 

7 DAV from bus 



Note that on the IEEE bus, 'high' is logic false and 'low' is logic true; 
and that the data bus must be left with all bits 'high' when PET has 
finished to avoid confusion of data put on to the bus by other devices. 




'I'd Like to Reason With Your 
Computer.' 




A Sudden Reduction of Personnel Is 
Indicated.' 



'J 




cM 



XMU 



The program controls a given number of data transfers, each of 8 bytes, 
from the HP3437A to the PET. Each one is preceded by a trigger (GET - 
group execute trigger) on the IEEE bus, and the HP3437A must be correctly 
addressed as a 'talker' or a 'listener' at all times by sending MTA 
(ffiy talk address) or MLA (my listen address) before transfers as 
appropriate. The sending of messages (GET, MTA, MLA, etc.) or data is 
controlled by the ATN line; ATN is true when messages are being sent. 

The program and returned data are held in the top 2K of memory; this 
is hidden from BASIC using POKE 134,255 : POKE 135,23 as the first line 
of the BASIC control program. The number of readings required is POKEd 
into 6400, _, then control passed to the machine language program by 
SYS (6144). The data bytes coming in on the IEEE bus are stored in 
locations 6401 onwards; these are PEEKed out on return to BASIC, and 
converted into numbers using the function VAL. As the index register is 
used for counting, only 256 bytes can be transferred using this program, 
but it would be easy to modify the program to perform more transfers. 

Disassembled listings with comments and a separate listing (for ease of 
copying into BASIC DATA statements!) are given. 

This program was prepared using a machine language handler written by 
the author, and the listings produced by this handler and by a modified 
version of the 'disassemble' part of the PETSOFT ©ASSEMBLER 'EXEC' 
program. 

IEEE bus handshake routine - main program 



1800 A200 LDX ¥00 prepare index register 

1802 A9FB LDA jWB set ATN low 

1804 2D40E8 AND E840 

1807 8D40E8 STA £840 

180A A928 LDA #28 MLA (28 for this device) 

180C 8501 STA 01 

180E 208018 JSR 1880 handshake into bus 

1811 A908 LDA #08 GET 

1813 8501 STA 01 

1815 208018 JSR 1880 handshake 

1818 A948 LDA ^^48 MTA 

181A 8501 STA 01 

181C 208018 JSR 1880 handshake 

181F A9FD LDA *('FD set NRFD low (ready to receive data) 

1821 2D40E8 AND E840 

1824 8D40E8 STA E840 

1827 A9F7 LDA #F7 and NDAC low also 

1829 2D21E8 AND E821 

182C 8D21E8 STA E821, 

182F A904 LDA if04 set ATN high 

1831 OD40E8 ORA E840 



A 



183A 8DAOE8 
1837 A008 
1839 20B018 
183C A502 
183E 9D0119 

1841 E8 

1842 88 

1843 D0F4 
1845 A9FB 
1847 2D40E8 
184A 8D40E8 
184D A902 
184F OD40E8 
1852 8D40E8 
1855 A908 
1857 OD21E8 
185A 8D21E8 
185D A95F 
185F 8501 
1861 208018 
1864 A904 
1866 0D40E8 
1869 8D40E8 
186C CE0019 
186F D091 
1871 60 



STA E840 

LDY #08 

JSR 18B0 

LDA 02 

STA 1901, X 

INX 

DEY 

BNE 1839 

LDA #FB 

AND E840 

STA E840 

LDA 1^02 
OPA E840 
STA E840 
LDA #08 
ORA E821 
STA E821 
LDA ^i'5F 
STA 01 
JSR 1880 
LDA #04 
ORA E840 
STA E840 
DEC 1900 
BNE 1802 
RTS 



subroutine to handle 



ready to count 8 bytes 
handshake data from bus 
result to A 
store in 1901+X 



jump if Y not zero 
set ATN low 



set NRFD high 
set NDAC high 

UNT 

handshake to bus 
set ATN high 

decrease counter 
jump if not zero 
return to BASIC program 

handshake into bus 



1880 

1883 

1885 

1887 

1889 

188B 

188E 

1890 

1893 

1896 

1899 

189B 

189D 

189F 

18A2 

18A5 

18A7 

18AA 



AD40E8 

2940 

F0F9 

A501 

49FF 

8D22E8 

A9F7 

2D23E8 

8D23E8 

AD40E8 

2901 

F0F9 

A908 

0D23E8 

8D23E8 

A9FF 

8D22E8 

60 



LDA E840 
AND W40 
BEQ 1880 
LDA 01 
EOR ^''FF 
STA E822 
LDA #F7 
AND E823 
STA E823 
LDA E840 
AND *01 
BEQ 1896 
LDA #08 
ORA E823 
STA E823 
LDA MFF 
STA E822 
RTS 



NRFD ? 

jump back if not ready 
ready: get data byte 
complement it 
send to bus 
set DAV low 



NDAC ? 

jump back if not accepted 
accepted; set DAV high 



255^ into bus 
return to main 



subroutine 



to handle handshake from bus 



18B0 

18B2 

1885 

18B8 

18BB 

18BD 

18BF 

18C2 

18C4 



A902 

0D40E8 

8D40E8 

AD40E8 

2980 

D0F9 

AD20E8 

49FF 

8502 



LDA fr02 
ORA E840 
STA E840 
LDA E840 
AND *80 
BNE 18B8 
LDA E820 
EOR ^F 
STA 02 



set NRFD high 



DAV ? 



jump back if not valid 
get data byte from bus 
complement 
store in $ 0002 



< 



18C8 2D40E8 AND E840 
18CB 8D40E8 STA E840 
18CE A908 LDA ^08 
18D0 0D21E8 ORA E821 
18D3 8D21E8 STA E821 
18D6 AD40E8 LDA E840 
18D9 2980 AND *80 
18DB F0F9 BEQ 18D6 
18DD A9F7 LDA *F7 
18DF 2D21E8 AND E821 
18E2 8D21E8 STA E821 
18E5 A9FF LDA #FF 
18E7 8D22E8 STA E822 
1.8EA 60 RTS 



set NDAC high 



DAV high ? 

jump back if not 
set NDAC low 



255^- into bus 



return to mam 



IEEE bus handshake routine listing 

1800 A2 00 A9 FB 2D 40 E8 8D 
1808 40 E8 A9 28 85 01 20 80 
1810 18 A9 08 85 01 20 80 18 
1818 A9 48 85 01 20 80 18 A9 
1820 FD 2D 40 E8 8D 40 E8 A9 
1828 F7 2D 21 E8 8D 21 E8 A9 
1830 04 OD 40 E8 8D 40 E8 AO 
1838 08 20 BO 18 A5 02 9D 01 
1840 19 E8 88 DO F4 A9 FB 2D 
1848 40 E8 8D 40 E8 A9 02 OD 
1850 40 E8 8D 40 E8 A9 08 OD 
1858 21 E8 8D 21 E8 A9 5F 85 
1860 01 20 80 18 A9 04 OD 40 
1868 E8 8D 40 E8 CE 00 19 DO 
1870 91 60 EA EA EA EA EA EA 
1878 EA EA EA EA EA EA EA EA 
1880 AD 40 E8 29 40 FO F9 A5 
1888 01 49 FF 8D 22 E8 A9 F7 
1890 2D 23 E8 8D 23 E8 AD 40 
1898 E8 29 01 FO F9 A9 08 OD 
18A0 23 E8 8D 23 E8 A9 FF 8D 
18A8 22 E8 60 EA EA EA EA EA 
18B0 A9 02 OD 40 E8 8D 40 E8 
18B8 AD 40 E8 29 80 DO F9 AD 
18C0 20 E8 49 FF 85 02 A9 FD 
18C8 2D 40 E8 8D 40 E8 A9 08 
18D0 OD 21 E8 8D 21 E8 AD 40 
18D8 E8 29 80 FO F9 A9 F7 2D 
18E0 21 E8 8D 21 E8 A9 FF 8D 
18E8 22 E8 60 

0001 data to go into bus 

0002 data from bus 

1900 counter for number of data transfers 

1901 start of results area 



John A. Cooke 

Department of Astronomy 
University of Edinburgh 
Royal Observatory 
Edinburgh EH9 3HJ 



f^,. -VT h^^±c Comniled b- Jim Putterfielf', Toronto 

A few routines from ^^T basic 

(Original ROM) 
C2AC-C2D9 peeks at the stack for an active FOR loop 
C2DA^C31C 'opens un' a space in Basic for insettion of a new lines. 
C31D-C329 tests for stack- too-deep and aborts if found. 
C32A-C356 check available memory soace j „ ^ ^„+«. 

C357-C388 sends a canned error message from C190 area, then droos into. 

C389-C391 Signals 'ready' 

rr>Q], r-<A9 pets a line of int)ut, analyzes it, executes ix , , ,^ 

cl'c- 2I handles a new line of Pasic from kevboard; deletes old line. etc. 

CU30-CU60 corrects the chaining between Basic lines after insert/delete 

Ch62-Ch76 receives a line from the keyboard into the Basic buffer 

Cli79-Cb8C gets each character from keyjrboard *„ii + «v„„«ti 

Ca8D-C521 looks un the keywords in an inout lines and changes t° "tokens 

ri^i ci<() s -arches for the loeation of a Basic line from number in 8,9 

%ll-%99 I;Sements 5e^ command - clears everything (01l/019 ROM change) 

C59A-C5A7 sets the Basic pointer to start-of-program 

C$A8-C6U7 performs LIST command 

C6U9- C68F executes a FCR statement 

C692-C6BU continues to build FOR vectors 

C6B5-G6EF reads and executes the next Basic statement, finds next line, etc. 

C6F2~C7QA executes the Basic Command as a subroutine 

C70D-C71B performs REST CUE 

C71C-C7U2 handles STOP, EMD, and BREAK procedures. 

C7li$-C75E performs CONT 

C75F-C76D set pause after carriage return (never called; 

C770-C772 performs CLR 

C775-C77D performs RUN 

C780-C79A performs GOSUB 

C79D-C7C9 performs GOTO 

C7CA-C7FD performs RETURN 

C7FE-C81E scans for start of next Basic line 

C820-C8UO performs IF 

C81i3-C862 performs ON ^ j. . a a 

G863-C89A gets a fixed-point number from Basic and stores in 0,y 

G89D-C91B performs I£T 

C91C-C97E check numeric digit/moT^e string pointer 

C97F-C982 performs PRINT/? 

C 985 -C 996 performs CMD 

C999-CA2U performs PRINT 

GA27-CAhl prints string from address in Y,A 

GAbL-CA76 urints a character 

CA77-CA9E handles bad innut data 

CA9F-ZkC^ T5erfcr-.3 C-ET 

CAC6-CADF tjerforms IN?UT# 

CAEO-GBlU performs INPUT 

CB17-CB21 prompts and receives the input 

CB2U-CG11 performs READ 

CC12-CG35 canned messages: EXTRA KNOIED; REDO FROM START 

CG36-CC8F performs NEXT 

CC92-CCB5 checks Basic format, data type, flags TYPE MISMATCH^ 

GCB8-CD38 inputs and evaluates any expression (numeric or string) 

CD3a-GD9C pushes a partially-evaluated argument to the stack 

CD9D-CDB9 evalues a numeric, variable, or pi, or identifies other symbol 

CDBC-CCCO value of pi in floating binary 



Routines in Upgrade ROM Jim Butterfield, Toronto 

COOO-COU$ Action addresses for primary keywords 

COU6-C073 Action addresses for functions 

C07b-C091 Hierarchy and action addresses for operators 

C092-G192 Table of Basic keywords 

C193-C2A9 Basic messages, mostly error messages. 

C2AA-C2D7 Search stack for FOR or GOSUB activity 

C2D8-C31A Open up space in memory 

C31B-C327 Test: stack too deep? 

C328-C35U Check available memory 

C355 Send canned error message, then: 

C389-C3AA Print READY. 

C3AB-CUU1 Handle new Basic line firom keyboard 

CUU2-CU6E Rebuild chaining of Basic lines in memory. 

CU6F-CU9U Receive line from keyboard 

CU9$-C52B Change keywords to Basic tokens 

C52C-C$5A Search Basic for a given Basic line nunober 

C55B Perform NSVf, then: 

C577-C5a6 Perfonn CLR 

C5A7-C5;b1i Reset Basic execution to start-of -program 

C5B5;-C657 Perform LIST 

C658-C6FF Perform FCR 

C700-C72F Execute Basic statement 

C730-C73E Perform RESTORE 

C73F-C76A Perform STOP and END 

C76B-C78ii Perform CONT 

C785-C78F Perform RUN 

C790-C7AC Perform GOSUB 

C7AD-C7D9 Perform GOTO 

C7DA Perform RETURN, and perhaps : 

C7F3-C80D Perform DATA, i.e., skio rest of statement 

C80E Scan for next Basic statement 

C811-C82F Scan for next Basic line 

C83O Perform IF, and perhaps: 

C8U3-C852 Perform REM, i.e., skip rest of line 

C853-C872 Perform ON 

C873-C8AC Get fixed-point number from Basic 

caAD-C927 Perform I£T 

C928-C936 Add ASCII digit to accumulator #1 

C937-C98A Continue to uerform I£T 

C98B-C990 Perform FRINT# 

C991-C9Ait Perform CMD 

C9A5-CA1B Perform PRINT 

CAIC-GA38 Print string from memory 

CA39-CAliE Print single format character (space, cursor-right, ?) 

CAliF-CA7C Handle bad input data 

CA7D-CAA6 Perform GET 

CAA7-CAC0 Perform INPUTS 

CAC1-CAF9 Perform INPUT 

CAFA-CBO6 Pronpt and receive input 

CBO7-CBFB Perform READ; common routines used by INPUT and GET 

CBFC-CCIF Messages: EXTRA IGNORED, REDO FROM START 

CC20-CC78 Perform NEXT 

CC79-CC9S Checks data type, prints TYPE MISMATCH 

CC9F Inputs & evaluates any expression (numeric or string) 



CDEC Evaluate expression within parentheses () 

CDF2 Check right parenthesis ) 

CDF$ Check left parenthesis ( 

CDF8-GE02 Check for comma 

CE03-CE07 Print SYNTAX ERRCB and exit 

CE08-CE0E Set up function for future evaluation 

CEOF-CE88 Search for variable name 

CE89-CEC7 Identify and set up function references 

CEC8 Perform OR 

CECB-CEF7 Perform AND 

CEFS-CF^F Perform comparisons, string or numeric 

CF60-CF6C Perform DIM 

CF6D-CFF6 Search for variable location in memory 

CFF7-DO0O Check if ASCII character is alphabetic 

D0O1-D077 Create new Basic variable 

DO78-DO88 Array pointer subroutine 

D089-D08C 32768 in floating binary 

D08D-DQAB Evaluate expression for positive integer 

D0AC-D227 Find or create array 

D228-D258 Cot?ipute array subscript size 

D259 Perform FBE 

D26D-D279 Converts fixed-point to floating-point 

D27A-D27F Perform POS 

D280-D28C Check if direct command, print ILLEGAL DIRECT 

D28D-D2BA Perform DEF 

D2BB-D2CD Check FNx syntax 

D2CE-D33E Evaluate FNx 

D33F-D3UE Perform STR$ 

D3UF-D360 Calculate string vector 

D36I-D3CD Scan and set up string 

D3CE-D3FF Subroutine to build string vector 

DU00-Dli96 Garbage collection subroutine 

DU97-DliI)F Check for most eligible string for collection 

DUE0-D5i6 Collect a string 

D517-D553 Perform string concatenation 

D55U-I^7C Build string into nwmory 

D^TD-D^BU Discard unwanted string 

D5b5-D5c5 Clean the descriptor stack 

D^C6-D5D9 Perform CHR$ 

D5DA-D605 Perform LEFT$ 

D6O6-D6IO Perform RIGHT$ 

D6II-D63A Perform MID$ 

D63B-r)655 Pull string function parameters from stack 

D656-D65B Perform ISN 

D65C-r)66U Move from string-mode to numeric-mode 

D66$-D67U Perf cr3 A5C 

D675-D686 Input byte parameter 

D687-D6C5 Perform VAL 

D6C6-D6D1 Get two parameters for POKE or WAIT 

D6D2-D6E7 Convert floating-point to fixed-point 

D6E8-D706 Perform PEEK 

D707-D70F Perform POKE 

D710-D72B Perform WAIT 

D72C-D732 Add 0.^ to aocuraulator#l 

D733-D7UU Perform subtraction 

D7U5-D76D Microsoft joke 



D76E-D852 Perform addition 

D853-D889 Coinplement accuraulator#l 

D88A-D88E Print OVERFLOW and exit 

D88F-D8C7 Multiply-a-byte subroutine 

D8C8-D8F$ Function constants: 1, SQR(.5), SQR(2), -0.5, etc. 

D8F6 Perform LOG 

D937-D96U Perform multiplication 

J)96$-I)997 Multiply-a-bit subroutine 

D998-D9C2 Load accumulator #2 from memory 

D9C3-D9DF Test and adjust accumulators #1 and #2 

D^0-D9ED Handle overflow and underflow 

D9EE-DA0U Multiply by 10 

DAC5-DA09 10 in floating binary 

DAOA Divide by 10 

DA13 Perform divide-into 

DAIE-DAAD Perform divide-by 

I)AAE-DAD2 Load Accumulator #1 from memory 

DAD3-DB07 Store accumulator #1 into memory 

DB08-DB17 Copy accumulator #2 into accumulator #1 

DB18-DB26 Copy accumulator #1 into accumulator #2 

DB27-DB36 Round off accumulator #1 

DB37-DBUU Conroute SON value of accumulator #1 

DBii$-DB63 Perform SON 

DB6U-DB66 Perform ABS 

DB67-DBA6 CoBpare accumulator #1 to memory 

DBA7-DBD7 Convert floating-point to fixed-point 

DBD8-DBFE Perform IKT 

DBFF-DC89 Convert string to floating-point 

DC8A-.DCBE Get new ASCII digit 

DCBF-DCCD String conversion constants : 99999999, 999999999, IE +9 

DCCE Print IN, followed by: 

DCD9-DCE8 Print Basic line number 

DCE9-DE1C Convert number or TI$ to ASCII 

DEID-DE^D Constants for numeric conversion 

DE^E Perform SQR 

DE68 Perform power function 

DEAl-DEAB Perform negation 

DEAC-DED9 Constants for string evaluation 

DEDA-DF2C Perform EXP 

DF2D-DF76 Function series evaluation subroutines 

DF77-DF7E Manipulation constants for RND 

DF7F-DFD7 Perform RND 

DFD8 Perform COS 

DFDF-E027 Perform SIN 

EO28-E053 Perform TAN 

EQ5U-E08B Constants for trig evaluation: pi/2, 2»pi, .25, etc. 

E08C-E0BB Perform ATN 

EQBC-E0F8 Constants for ATN series evaluation 

E0F9-E110 Subroutine to be moved to zero page ($70 to $87) 

E111-E115 Initial RND seed 

E116-E1B6 Initialize Basic system 

E1B7-E1DD Messages: BYTES FREE, ## COMMODORE BASIC ## 

EIDE Initialize I/O registers, and: 

E229 Clear screen, and: 

E257-E28U Home cursor 



E285-E2F3 Input from screen or keyboard; wait for input completion 

E2Fb-E33E Input from screen 

E33F-E3UB Test for quotation mark and reverse quote-flag 

E3hC-E38A Set up screen print parameters 

E38B-E395 Prevent 80-character line from getting any longer 

E396-E3B3 Extend UO-character line to 80 characters 

E3BU-E3D7 Back into the previous line (via DEL or CURSCE LEFT key) 

E3D8-E518 Handle ASCII character for screen output 

E519-E53E Go to next line on screen 

E53F-E5B9 Scroll the screen 

E5BA-E61A Open a line on the screen (via INSERT key) 

E61B-E62D Main interrupt entry point 

E62E-E6E9 Hardware interrupt: service clock, keyboard, cassettes 

E6EA-E6F7 Print character on screen 

E6F8-E769 Table: decoder for keyboard matrix 

E76A-E796 KIM subroutine: output hex digits 

E797-E7A6 KLU subroutine: swap TMPO and TMP2 

E7A7-E7F6 MLM subroutine: input hex digits 
j.jy(& V E7F7-E7FF MUM subroutine: print ? 
P J./JL / TX)00-F0B5 Monitor messages, mostly for Ir^jut/Output 
\(Jy^ F0B6 Set UD IEEE for Listen, Talk, etc. 

-s. QbO' FOEE-F127 Send character to IEEE-U88 bus 
3^^ F128-F135 Outout character immediate mode to IEEE-U88 
■^^ F136-Fl5$ Send errors: WRITE TIMEOUT, DEVICE NOT PRESENT, etc. 

FI56-FI63 Send canned I/O message 

FL6U-F16E Send immediate Listen command, then secondary address 

F16F-F17E Output character deferred mode to IEEE-b88 

F17F-F18B Drop IEEE channel: send Unlisten or Untalk 

FlSC-FlDO Input character from IEEE-U88 bus 

FIDI-FIEO GET a character 

F1E1-F231 INPUT from any device 

F232-F26D OUTPUT a character to any device 

F26E Abort all files, and; 

F2eU-F28C Restore normal I/O devices 

F28D-F2A8 Find file table entry; set rarameters from file table 

F2A9-F30O Perform CLOSE 

F3OI-F3OE Test stoD key 

F3OF-F3IU Action stop key 

F315-F31C Send message if direct mode 

F31D-F321 Test if direct mode 

F322-F3C1 Perform program loading 

F3C2-FU09 Perform LOAD 

FU0A-Fb3D Subroutines: Print SEARCHING... ; Print LOADING or VERIFTINO 

Flt3E-FU5F Get Load or Save parameters 

Pli60-FU65 Get a byte parameter 

FU66-FU93 Send program name to IEEE-U88 bus 

FU9U-FliB6 Find a specific tape header 

FUB7-FhCD Perform VERIFT 

FiiCE-r50D Get parameters for OPEN, CLOSE 

F50E-F$15 Abort calling subroutine if end-of-line (default parameters) 

P^l6-F$20 Confirm comma, else send SYNTAX ERROR 

Te$21-¥$kS Perform OPEN 

F$A6-F5D9 Find any tape header 

F^DA-F63B Write tape header 



F63C-F6$5 Get start & end program addresses from tape header 
P656-F66B Set cassette buffer address according to device nunijer 
J66C-P683 Set tape start & end addresses from buffer address 
F68U-F68C Perform CMD 

j68D-J69D Set tape start & end addresses from Basic pointers 
F69E-F728 Perform SAVE 

F729-F76C Update TI and TI$, and copy, STOP key to work area 
F76D-F76F TI constant: limit of clock (2U hours) 
F770-F7BB Set ir?)ut device 
F7BC-F80^ Set output device 

F806-F811 Advance tape buffer pointer (for INPUr#, GET#, and PRINT#) 
F8I2-F83U Wait: PRESS PUY ON TAPE# 
F83$-F8U6 Test if cassette button(s) pressed 
F8U7-F85U Wait: PRESS PLAY & RECORD ON TAI^# 
F855 Initiate tape read 
F886-F8E5 Initiate tape write 
F8E6-F8EF Test for l/O interrupt completion 
F8F0-F8FF Test stop key 

F900-F930 Set expected timing for next input bit from tape 
F931 Interrupt entry: Read tape bits 
FA57-FB75 Store received tape characters 

FB76-FB7E Set tape read/write address back to starting point 
FB7F-FB83 Flag I/O error into ST 
FB8U-FB92 Reset 8-count and flags for a new byte 
FB93-FBAE Write a transition to cassette tape 
FBAF-FCUO Write interrupt 2: write data to tape 
FCU1-FC7A Write interrupt 1: write tape shorts (leader) 
FC7B-PC95 Terminate tape: restore normal interrupt vector 
FC%-FCA5 Set interrupt vector from table 
FCA6-FCB3 Turn off cassette motors 
FCBU-FCC5 Perform ruxining checksum calculation 
FCC6-FCD0 Advance read/write pointer 
FCDl-FCFD Power- on reset entry point 
FCEE-FDOO NMI interrupt entry point 
FDOI-FDIO Table of interrupt vectors 

FDU-FFBO Machine language Monitor (MLM) - see Commodore documentation 
FfBl-FEBF CBM copyright statement 
•JHHHMtJunp Table**»** 
FFCO OPEN 
FFC3 CLOSE 

FFC6 Set Input device 
FFC9 Set output device 
FFCC Restore default l/O devices 
FFCF Input character 
FFD2 Output character 
FFD5 LOAD 
FFD8 SAVE 
FFDB VERIFY 
PFDE SYS 

FFEl Test stop key 
FFEli Get character 
FFE7 Abort all l/O activity 
FFEA Clock update 
FFF0-FFF9 unused 
FFFA-FFFF Hardware vectors: NMI, Reset, Interrupt 
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